home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / glibc-1.09 / glibc-1 / glibc-1.09.1 / munch.awk < prev    next >
Encoding:
AWK Script  |  1994-07-18  |  396 b   |  12 lines
  1. BEGIN { special = 0 }
  2.  
  3. /EXTERNS/ { ndirs = split(subdirs, dirs)
  4.         for (i = 1; i <= ndirs; ++i)
  5.             printf "extern void EXFUN(__init_%s, (int argc, char **argv, char **envp));\n", dirs[i]
  6.         special = 1 }
  7. /CALLS/ { ndirs = split(subdirs, dirs)
  8.       for (i = 1; i <= ndirs; ++i) printf "  __init_%s (argc, argv, envp);\n", dirs[i]
  9.       special = 1 }
  10.  
  11. { if (special == 0) print $0; special = 0 }
  12.